perm filename DOMUS.SAI[SCR,LCS] blob sn#456947 filedate 1979-07-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN 
C00003 ENDMK
CāŠ—;
BEGIN 
STRING File;
define  
	#  =	"'40",
	sp = 	"('40&null)",
	ā†’  =	"'11",
	tab= 	"('11&null)",
	alt= 	"('175)",
	cr = 	"('15&null)",
	lf = 	"('12&null)",
	ā†“  = 	"(cr&lf)";
PTOSTR(0,"DO 222DO[SCR,LCS]"&cr);
CALL (1,"EXIT");
END;